From: Stephen Berman Date: Wed, 7 May 2014 09:31:27 +0000 (+0200) Subject: todo-mode.el: Don't drop full parameter list. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~545 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1ddb2150e64c2d07bd91a3883a0028a0b8599d76;p=emacs.git todo-mode.el: Don't drop full parameter list. * calendar/todo-mode.el (todo-insert-item--apply-args): When all four slots of the parameter list are filled, make sure to pass it to the argument list of todo-insert-item--basic. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e5f5f54f16..f8502bd35bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-05-07 Stephen Berman + + * calendar/todo-mode.el (todo-insert-item--apply-args): When all + four slots of the parameter list are filled, make sure to pass it + to the argument list of todo-insert-item--basic. + 2014-05-06 Stefan Monnier * emacs-lisp/package.el (package-compute-transaction): Topological sort. diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index ddc3a4843c9..4f4aefa6317 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -5360,7 +5360,8 @@ occupied by `nil'." (list (car (todo-insert-item--argsleft (todo-insert-item--this-key) todo-insert-item--argsleft))))) - (arglist (unless (= 4 (length args)) + (arglist (if (= 4 (length args)) + args (let ((v (make-vector 4 nil)) elt) (while args (setq elt (pop args))